home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / com_and3.zip / CIS.CMD < prev    next >
OS/2 REXX Batch file  |  1990-05-30  |  2KB  |  47 lines
  1. ; ----- CIS: Dial Compuserve (CIS) and connect (logon)
  2. ; ----------------------------------------------------------------
  3. ;    Note: This script expects dialing directory entry #3 to be
  4. ;    a Compuserve direct-dial number.  Telenet or other carrier
  5. ;    access require different scripting.
  6. ; ----------------------------------------------------------------
  7. ;    Note: This script uses a LOGON file prepared by MKLOGON,
  8. ;    if one is available.
  9. ; ----------------------------------------------------------------
  10. ;
  11. ;    Dial CIS directly
  12. ;
  13.     LEGEND " Dialing CIS direct..."
  14.     IF NOT linked
  15.        RESET        ; Reset defaults only if not linked
  16.        DEFTIME "60"         ; Wait 60 seconds for an incoming string
  17.        DIAL "3"             ; Call dial dir entry number 2 (CIS)
  18.        IF failed        ; IF esc out
  19.           EXIT        ; terminate script
  20.           ENDIF
  21.        ENDIF
  22. ;
  23. ;    Set initial values
  24. ;
  25.     SET 25            ; VidTex doesn't like 43
  26.     SET BSuppress off    ; Turn off blank line suppression
  27.     SET Mask on        ; Turn on high bit mask
  28.     SET CDisplay off    ; disable ctl char displau
  29.     EMULATE VIDTEX        ; Make up/downloads automatic
  30. ;
  31. ;    Now - wait for the user ID prompt
  32. ;
  33.     Pause "3"               ; Wait for the modem to settle down
  34.     Transmit "!"            ; Transmit Carriage return <CR>
  35.     Waitfor "Host"          ; Wait 1 sec
  36.     Transmit "CIS!"         ; Respond CIS
  37.     Waitfor "User ID:"      ; Wait for the 'USER ID' prompt
  38. ;
  39. ;    If we have a CISLOGON file, use it
  40. ;
  41.     SET TTHRU OFF        ; Let psw be typed
  42.     IF ISSCFILE "CISLOGON"
  43.        FCALL "CISLOGON"
  44.     ELSE
  45.        Alarm           ; Sound alarm
  46.        ENDIF
  47.